home *** CD-ROM | disk | FTP | other *** search
/ 3-D Body Adventure / 3-D Body Adventure (1994)(Knowledge Adventure).iso / zzzinst1.scr < prev    next >
Text File  |  1994-05-08  |  2KB  |  66 lines
  1. indestdir
  2. set _text insteng.txl
  3. err_handler %_text%\errhand.txt
  4. getOpt -T
  5. if %_err% eq 0
  6.     set _option "-T"
  7. endif
  8. getOpt -W
  9. if %_err% eq 0
  10.     set _option "%_option% -W"
  11. endif
  12. rem determine which menu item to highlight
  13. set _next 0
  14. getOpt -N:
  15. if %_err% eq 0
  16.     set _next %_1%
  17. endif
  18. :loop
  19. textbox 1 1 80 25 blue
  20. color back blue
  21. type %_text%\cpyrght.txt 11 22 60 4
  22. color back cyan
  23. type %_text%\install.txt 3 2 77 6 -border
  24. rem menu %_text%\shell.mnu 20 10 40 10 %_text%\shell.tit %_text%\updown.leg -default %_next%
  25. menu %_text%\shell.mnu 20 11 40 7 %_text%\shell.tit %_text%\updown.leg -default %_next%
  26. set _product "%_2%"
  27. switch %_1%
  28. case bodydemo:
  29.     chain  -curoff %_product%\install.exe %_option% -N %_3%
  30. case escape:
  31.     textbox 1 1 80 25 black
  32. case quit:
  33.     textbox 1 1 80 25 black
  34. case readme:
  35.     set _next "%_3%"
  36.     goto doc_top
  37. case default:
  38.     chain  -curoff %_product%\zzzprod %_option% -N %_3%
  39. endswitch
  40. rem exit with status 99 to signal batch file to not rerun us.
  41. quit 99
  42. rem
  43. rem readme menu
  44. :doc_top
  45. set _line 0
  46. :doc_loop
  47. set _doctext %_product%\doceng.txl
  48. textbox 1 1 80 25 blue
  49. color back blue
  50. type %_doctext%\readme0.txt 5 18 70 7
  51. color back cyan
  52. menu %_doctext%\readme.mnu 15 3 50 13 %_doctext%\readme.tit %_doctext%\updown.leg -default %_line%
  53. set _choice "%_1%"
  54. switch %_choice%
  55. case default:
  56.     textbox 1 1 80 25 black
  57.     spawn %_product%\more.com %_product%\doc\readme%_choice%.txt
  58.     type %_doctext%\anykey.txt 1 25 80 1
  59.     waitkey_noesc
  60.     set _line %_choice%
  61.     goto doc_loop
  62. case escape:
  63. case quit:
  64. endswitch
  65. goto loop
  66.